Summit/Summit Recordable CD-ROM.ISO/screen/proidx.spr

Text File | 1994-08-12 | 9.2 KB | 292 lines

*       *********************************************************
*       *
*       * 08/12/94             PROIDX.SPR                12:51:12
*       *
*       *********************************************************
*       *
*       * Author's Name
*       *
*       * Copyright (c) 1994 Company Name
*       * Address
*       * City,     Zip
*       *
*       * Description:
*       * This program was automatically generated by GENSCRN.
*       *
*       *********************************************************


#REGION 0
REGIONAL m.currarea, m.talkstat, m.compstat

IF SET("TALK") = "ON"
    SET TALK OFF
    m.talkstat = "ON"
ELSE
    m.talkstat = "OFF"
ENDIF
m.compstat = SET("COMPATIBLE")
SET COMPATIBLE FOXPLUS

m.rborder = SET("READBORDER")
SET READBORDER ON

m.currarea = SELECT()


*       *********************************************************
*       *
*       *               Windows Window definitions
*       *
*       *********************************************************
*

MODIFY WINDOW SCREEN ;
    AT 0.000, 0.000 ;
    SIZE 34.846,126.800 ;
    TITLE "Products Index" ;
    FONT "MS Sans Serif", 8 ;
    FLOAT ;
    CLOSE ;
    MINIMIZE ;
    FILL FILE LOCFILE("BMP\ROCKFACE.BMP","BMP|ICO|PCT|ICN", ;
        "Where is rockface?")
CLEAR

*       *********************************************************
*       *
*       *          PROIDX/Windows Setup Code - SECTION 2
*       *
*       *********************************************************
*

#REGION 1
do summit.mpr
SET PATH TO \data
SET BELL OFF
SET STATUS BAR OFF
RDDONE = 1
Exact = 1
use disclaim
GOTO 4

*       *********************************************************
*       *
*       *              PROIDX/Windows Screen Layout
*       *
*       *********************************************************
*

#REGION 1
@ 27.769,24.200 SAY "Goto Page:" ;
    FONT "MS Sans Serif", 12 ;
    STYLE "BT" ;
    COLOR RGB(0,255,255,,,,)
@ 28.077,46.400 GET M.Exact ;
    SPINNER 1.000, 1, 208 ;
    PICTURE "@KB" ;
    SIZE 1.000, 4.429 ;
    DEFAULT 1.000 ;
    FONT "MS Sans Serif", 10 ;
    COLOR ,RGB(0,0,0,255,255,255)
@ 27.769,59.600 GET M.Exact2 ;
    PICTURE "@*HN \<Search" ;
    SIZE 1.923,12.167,0.667 ;
    DEFAULT 1 ;
    FONT "MS Sans Serif", 8 ;
    STYLE "B" ;
    VALID _qsi0rjtny()
@ 27.769,77.400 GET M.Exact3 ;
    PICTURE "@*HN \<Return to Main" ;
    SIZE 1.923,21.000,0.667 ;
    DEFAULT 1 ;
    FONT "MS Sans Serif", 8 ;
    STYLE "B" ;
    VALID _qsi0rjtx1()
@ 4.846,33.200 TO 24.923,93.800 ;
    PEN 4, 8 ;
    COLOR RGB(0,255,255,,,,)
@ 5.154,34.200 EDIT Disclaim.text ;
    SIZE 15.813,42.000,0.000 ;
    DEFAULT " " ;
    FONT "MS Sans Serif", 10 ;
    TAB ;
    SCROLL



READ CYCLE ;
    WHEN _qsi0rju9b() ;
    ACTIVATE _qsi0rju9h() ;
    DEACTIVATE .T.

MODIFY WINDOW SCREEN
SELECT (m.currarea)


#REGION 0

SET READBORDER &rborder

IF m.talkstat = "ON"
    SET TALK ON
ENDIF
IF m.compstat = "ON"
    SET COMPATIBLE ON
ENDIF



*       *********************************************************
*       *
*       *   PROIDX/Windows Supporting Procedures and Functions
*       *
*       *********************************************************
*

#REGION 1
PROCEDURE next
IF RDLEVEL() = 1
    IF M.Exact = 208
        M.Exact = 1
    ELSE
        M.Exact = M.Exact + 1
    ENDIF
    SHOW GET EXACT
ENDIF
IF RDDONE = 50

    RDDONE = RDDONE + 1
    M.Exact = M.Exact + 1
    SHOW GET EXACT LEVEL 1
    CLEAR READ
    RELEASE WINDOW
    IF RDDONE != 4
        DO screen.exe with (ALLTRIM(STR(Exact)) + '.spr')
    ENDIF
ENDIF
RETURN

PROCEDURE back
IF RDLEVEL() = 1
    IF M.Exact = 1
        M.Exact = 208
    ELSE
        M.Exact = M.Exact - 1
    ENDIF
    SHOW GET EXACT
ENDIF
IF RDDONE = 50
    RDDONE = RDDONE + 1
    M.Exact = M.Exact - 1
    SHOW GET EXACT LEVEL 1
    CLEAR READ
    RELEASE WINDOW
    IF RDDONE != 4
        DO screen.exe with (ALLTRIM(STR(Exact)) + '.spr')
    ENDIF
ENDIF
RETURN

PROCEDURE rdsay
Level = RDLEVEL()
ACTIVATE SCREEN
=SYS(2017)
? LEVEL
RETURN

ON KEY LABEL PGUP
ON KEY LABEL PGDN

*       *********************************************************
*       *
*       * _QSI0RJTNY           M.Exact2 VALID
*       *
*       * Function Origin:
*       *
*       * From Platform:       Windows
*       * From Screen:         PROIDX,     Record Number:    4
*       * Variable:            M.Exact2
*       * Called By:           VALID Clause
*       * Object Type:         Push Button
*       * Snippet Number:      1
*       *
*       *********************************************************
*
FUNCTION _qsi0rjtny     &&  M.Exact2 VALID
#REGION 1
IF M.EXACT <= 0 OR M.EXACT >=209
    DO ERROR.SPR
ELSE
    DO screen.exe with (ALLTRIM(STR(Exact)) + '.spr')
ENDIF

*       *********************************************************
*       *
*       * _QSI0RJTX1           M.Exact3 VALID
*       *
*       * Function Origin:
*       *
*       * From Platform:       Windows
*       * From Screen:         PROIDX,     Record Number:    5
*       * Variable:            M.Exact3
*       * Called By:           VALID Clause
*       * Object Type:         Push Button
*       * Snippet Number:      2
*       *
*       *********************************************************
*
FUNCTION _qsi0rjtx1     &&  M.Exact3 VALID
#REGION 1
ON KEY LABEL PGUP
ON KEY LABEL PGDN
QUIT

*       *********************************************************
*       *
*       * _QSI0RJU9B           Read Level When
*       *
*       * Function Origin:
*       *
*       *
*       * From Platform:       Windows
*       * From Screen:         PROIDX
*       * Called By:           READ Statement
*       * Snippet Number:      3
*       *
*       *********************************************************
*
FUNCTION _qsi0rju9b     && Read Level When
*
* When Code from screen: PROIDX
*
#REGION 1
*ON KEY LABEL PGUP DO next
*ON KEY LABEL PGDN DO back
*ON KEY LABEL F5 DO rdsay
SHOW GET Exact

*       *********************************************************
*       *
*       * _QSI0RJU9H           Read Level Activate
*       *
*       * Function Origin:
*       *
*       *
*       * From Platform:       Windows
*       * From Screen:         PROIDX
*       * Called By:           READ Statement
*       * Snippet Number:      4
*       *
*       *********************************************************
*
FUNCTION _qsi0rju9h     && Read Level Activate
*
* Activate Code from screen: PROIDX
*
#REGION 1
IF RDDONE = 4
    DO screen.exe with (ALLTRIM(STR(Exact)) + '.spr')
ENDIF
SHOW GET EXACT
RDDONE = 1